Procedure VertSlideButtonDownPos(Var BX1,BY1,BX2,BY2:Word)

    This returns the coordinate of the down arrow on the slide bar.

    The horizontal procedures return  coordinates  for the left and right
    arrows on the slide bar.